;Start of program
	XPROG
	256.
		;Initialization - AFFIX driver_grasp to driver_tip
	XPUSH
	L1
	XAFFIX
		;DRIVER_TIP
	16
		;DRIVER_GRASP
	15
	2000
		;.DRIVER_TRANS
	17
		;Init (cont) - AFFIX moving_jaw to fixed_jaw
		;		Wait till VISE is ready
		;End of Initialization
		;BLOCK
	XMVAR
		;Events
	4.
	1.
	0.
		;BLOCK
	XMVAR
		;Arrays
		;SC
	1001
	1.
	100100
	100001
	0.
		;BLOCK
	XMVAR
		;Arrays
		;VT
	1002
	1.
	100100
	100001
	0.
		;BLOCK
	XMVAR
		;Arrays
		;TR
	1003
	1.
	100100
	100001
	0.
		;BLOCK
	XMVAR
		;Arrays
		;EVE
	1004
	1.
	100100
	100001
	0.
		;BLOCK
	XMVAR
		;Arrays
		;STR
	1006
	1.
	100100
	100001
	0.
		;BLOCK
	XMVAR
		;Scalars
	1.
	1.
	0.
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L4:	XFORCHK
		;I
	406
	L5
		;Assignment
	XPUSH
	L6
		;Array reference
	XGTVAL
		;I
	406
	XCHNGE
		;SC
	401
	XFOREND
	L4
L5:		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L7:	XFORCHK
		;I
	406
	L10
		;Assignment
	XPUSH
	L11
		;Array reference
	XGTVAL
		;I
	406
	XCHNGE
		;VT
	402
	XFOREND
	L7
L10:		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L12:	XFORCHK
		;I
	406
	L13
		;Assignment
	XPUSH
	L14
		;Array reference
	XGTVAL
		;I
	406
	XCHNGE
		;TR
	403
	XFOREND
	L12
L13:		;END FOR
		;Print
	XPUSH
	L15
	XVALPRN
		;Event operation
	XWAITE
		;EV
	400
		;BLOCK
	XMVAR
		;Scalars
	1.
	100.
	0.
		;BLOCK
	XMVAR
		;Scalars
	1.
	100.
	0.
		;BLOCK
	XMVAR
		;Scalars
	1.
	49.
	0.
		;Block end cleanup
	XKVAR
	49.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	100.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	100.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1.
		;End of BLOCK
	XENDP
		;End of program
		;Program constants
		;Scalar constants
	1.
L6:	.FLT2	 .0000000
	1.
L3:	.FLT2	 64.0000000
	1.
L2:	.FLT2	 1.0000000
		;Vector constants
	2.
L11:	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
		;Rotation constants
		;Trans constants
	3.
L14:	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	3.
L1:	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.0000000
	.FLT2	 .0000000
	.FLT2	 .0000000
	.FLT2	 1.8750000
		;String constants
	6.
L15:	ASCIE ↑∀....READY....∀